From: Lars Ingebrigtsen Date: Tue, 14 Feb 2012 15:31:49 +0000 (+0100) Subject: Respect smtpmail-smtp-service when doing a trial connection X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~324^2~763 X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=357f506077dd11a379e471a9b9894254a43aad74;p=emacs.git Respect smtpmail-smtp-service when doing a trial connection * mail/smtpmail.el (smtpmail-query-smtp-server): Fix typo in the way the ports list is computed. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 12dcb29e6cb..7f76ff5fb3b 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2012-02-14 Lars Ingebrigtsen + + * mail/smtpmail.el (smtpmail-query-smtp-server): Fix typo in the + way the ports list is computed. + 2012-02-14 Teodor Zlatanov * net/gnutls.el (gnutls-trustfiles): Add Cygwin location. diff --git a/lisp/mail/smtpmail.el b/lisp/mail/smtpmail.el index 99283bebf9d..fcec5008c98 100644 --- a/lisp/mail/smtpmail.el +++ b/lisp/mail/smtpmail.el @@ -597,11 +597,11 @@ The list is in preference order.") (defun smtpmail-query-smtp-server () (let ((server (read-string "Outgoing SMTP mail server: ")) - (ports '("smtp" 587)) + (ports '(25 587)) stream port) - (when (and smtpmail-smtp-server - (not (member smtpmail-smtp-server ports))) - (push smtpmail-smtp-server ports)) + (when (and smtpmail-smtp-service + (not (member smtpmail-smtp-service ports))) + (push smtpmail-smtp-service ports)) (while (and (not smtpmail-smtp-server) (setq port (pop ports))) (when (setq stream (condition-case ()